Top 10k strings from ZX Forth (1983)(-).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   9 addr=addr+1
   2 dd=vars+v*2
   2 d$(i),a(i):
   1 w$=""""+l$(pos
   1 vars=43000
   1 s$(p))=";"
   1 l$=l$(pos+1
   1 l$="reset"
   1 l$="pr on"
   1 l$="pr off"
   1 l$="dlist"
   1 l$(pos)=""""
   1 l$(pos)=" "
   1 end=a(no):
   1 e$+e$+s$(p+
   1 d$(no)=w$:
   1 addr=addr1:
   1 addr=addr+i+1
   1 addr=addr+2
   1 addr=44016
   1 addr1=addr:
   1 addr1=addr
   1 addr,dd-256
   1 a(no)=addr
   1 STORE DD AT ADDR
   1 STORE A CALL PUSH COMMAND
   1 STORE A CALL POP COMMAND
   1 SET UP EDITOR/ERROR TRAP ROUTINES
   1 PICK UP NEXT WORD
   1 MAIN KEYBOARD LOOP
   1 LOAD DICTIONARY ENTRIES
   1 ERROR HANDLING
   1 COMPILER COMMANDS
   1 COMPILE L$ AT ADDR
   1 ,end-44015
   1 ,end-43199
   1 ,"while",43768
   1 ,"until",43755
   1 ,"then",43890
   1 ,"swap",43538
   1 ,"repeat",43949
   1 ,"over",43557
   1 ,"loop",43792
   1 ,"key",43683
   1 ,"if",43874
   1 ,"get",43711
   1 ,"emit",43309
   1 ,"else",43885
   1 ,"dup",43264
   1 ,"drop",43260
   1 ,"do",43780
   1 ,"clear",43525
   1 ,"begin",43752
   1 ,"allot",43997
   1 ,"abort",44014
   1 ,"^",43637
   1 ,"Undefined word",2
   1 ,"Tape loading ERROR"
   1 ,"Number out of range",11
   1 ,"Invalid number",12
   1 ,"Invalid name",19
   1 ,"Invalid colour code",26
   1 ,"Division by zero",7
   1 ,"Bad variable",10
   1 ,"Bad line",5
   1 ,"BREAK",14
   1 ,"@",43672
   1 ,"?",43648
   1 ,"=",43576
   1 ,"<",43609
   1 ,".",43315
   1 ,"-",43245
   1 ,"+loop",43812
   1 ,"*",43276
   1 ,"!",43658
   1 +++^#V###s#r"
   1 *FORTH COMPILER/EDITOR*
   1 "ind",43864
   1 "Program ABORTed"':
   1 "Exit from ZX FORTH"
   1  repeat    allot